home *** CD-ROM | disk | FTP | other *** search
/ Aminet 15 / Aminet 15 - Nov 1996.iso / Aminet / comm / www / Voyager.lha / Voyager10 / Installer < prev    next >
Text File  |  1996-05-03  |  20KB  |  526 lines
  1. ;******************************************************************************
  2. ;         __  __                                     
  3. ;        / / / /                                    
  4. ;       / / / /______ __  __ ______  ______ ______ _____
  5. ;      / / / // __  / \ \/ // __  / / __  // ____// .__/
  6. ;     /  \/ // /_/ /   \  // __  / / /_/ // __/_ / /
  7. ;     \____//_____/    / //_/ /_/ _\__  //_____//_/
  8. ;                     /_/        /_____/   
  9. ;
  10. ; $VER: 1.0e_Voyager_Installer (May-03-1996) 
  11. ; Changes, suggestions or problems: rcr@netcom.com
  12. ; May not be hacked into any "internet pack"!
  13. ; If you wish to use any part of this installer you must ask.
  14. ;
  15. ; Installer by Robert C. Reiswig ©1995, 1996 
  16. ; Voyager by Oliver Wagner ©1995, 1996 
  17. ;******************************************************************************
  18. ;*** System Stuff ***
  19. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  20. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  21. (set osver (/ (getversion "LIBS:version.library") 65536))
  22. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  23. (set fastmem (- totmem graphmem))
  24.  
  25. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  26. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  27. (if (= osver 41) (set workbench "3.2"))
  28.  
  29. (set cpu (database "cpu"))
  30. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  31. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  32. (if (= cpu 68040) (set #cpu 4)) 
  33. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  34.  
  35. (set vernum1 (getversion "V")) (set ver1 (/ vernum1 65536)) 
  36. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Voyagerver (cat ver1 "." rev1))
  37.  
  38. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  39. (set lan 0)
  40.  
  41. (if (= "english"    lanfound) (set lan 0))  (if (= "deutsch"    lanfound) (set lan 1))
  42. (set #English    "English")  (set #Deutsch    "Deutsch")
  43.  
  44. (set mfound 0) (set newicon1 1) 
  45. (set keeper 1) (set firsttime 0)
  46.  
  47. (set TELNET_APP-A "amitcp:bin/telnet <>con://640/256/Telnet/SCREEN* %h %p")
  48. (set TELNET_APP-I "inet:bin/telnet %h %p")
  49. (set MAILTO_APP "<path:program><needed-option> %h")
  50. (set WWWPROXY "<proxy server>")
  51. (set WWWPROXYPORT "<proxy port>")
  52. ;********************************************************************
  53. ; English Strings
  54. ;********************************************************************
  55. (set #about (cat "\n\n\n\nWelcome to Voyager " Voyagerver "\n\n\nCopyright © 1995,1996 by\n\nOliver Wagner\n") )
  56. (set #installup " Install or Update Voyager")
  57. (set #clearcache " Clear Cache Directory")
  58. (set #task "\nWhat would you like to do?\n")
  59. (set #whereVoyager "Where do you wish to install Voyager. The directory 'Voyager' will be created if it is not there. If a copy of Voyager is found it will be backed up.")
  60. (set muiver "No Version Installed")
  61. (set #newermui "\nVoyager needs version 3.3 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find mui33usr.lha on Aminet in dev/gui\n\nIt looks like you have: \n\n")
  62. (set #need-os "\n\nVoyager needs version 3.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  63. (set #000used "\n\nThe 68000 version will be installed.") 
  64. (set #nompc "\nThe .MPC files for Voyager can not be installed to 'mui:libs/mui'")
  65. (set #filethere1 "\n\nThe installer has found Voyager version ")
  66. (set #filethere2 " at ")
  67. (set #filethere3 "\n\nThe file will be renamed to ")
  68. (set #filethere4 " and it will then be moved to ")
  69. (set #backuptoXXX "Back-UP to file named 'Voyager.")
  70. (set #copyover "Copy Over Old Version")
  71. (set #oktodelete1 "\nIs it ok to delete the older Voyager binary so that the Voyager Directory can be made?\n")
  72. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ Voyager binary so that the Voyager Directory can be made?\n")
  73. (set #Voyagerfound "\nThe Installer has found a copy of Voyager already installed. What do you want to do?\n")
  74. (set #no020found "\n\nThe 68020 Version of Voyager, V020, was not found in this archive the 68000 version was installed.")
  75. (set #newicon "\nDo you wish to copy over The Voyager Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  76. (set #nonewicon  "No  - ToolTypes already set.")
  77. (set #yesnewicon "Yes - Copy over Icon.")
  78. (set #yesnewicon "Yes - Copy over Icon.")
  79. (set #whatcat "\nSelect the ALabTV Language catalog you wish to install.\n")
  80. (set #wherecat "\nWhere do you wish to install the Voyager Language Catalog? Default is ")
  81. (set #catnofind "Can not find this catalog in this Voyager archive. You may need to get a newer archive.")
  82. (set #whatdocs "\nWhat Voyager documentation would you like to install?\n")
  83. (set #wheredocs "Where would you like the Voyager documentation you selected to be installed?")
  84. (set #byebye (cat "\nVoyager Install Complete!\n\n" ))
  85.  
  86. (set #whatenv "\nWhat Environment Variables do you wish to set?\n")
  87. (set #telnet " TELNET_APP - Set telnet:")
  88. (set #mailto " MAILTO_APP - Set mailto:")
  89. (set #wwwproxy " WWWPROXY & WWWPROXYPORT - Proxy")
  90. (set #telnetset "Enter the Program and command line option(s) you wish Voyager to call when you select a telnet: address. If you have 'env:Voyager/TELNET_APP' set it will be displayed below, if not a default/example will be filled in. (%h=host, %p=port)")
  91. (set #mailopt "\nPlease select the Program that you use to post email with.\n") 
  92. (set #mailset "Enter the Program and command line option(s) you wish Voyager to call when you select a mailto: address. If you have 'env:Voyager/MAILTO_APP' set it will be displayed below, if not an example will be shown. (%h=email-address)")
  93. (set #wwwpset "\nPlease enter the Proxy Server you wish to use.\n")
  94. (set #wwwppset "\nPlease enter the Proxy Port you wish to use.\n")
  95.  
  96. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer, Version 43.1\n\n\nIt can be found on Aminet in:\n\n/util/misc/Installer-43_1.lha\n\n\nYou might want to upgrade soon.")
  97.  
  98. ;********************************************************************
  99. ; German Strings
  100. ;********************************************************************
  101. (if (= lan 1)
  102.  (set OlliDontShareThePizza TRUE)
  103. )
  104.  
  105. ;********************************************************************
  106. ; Hello
  107. ;********************************************************************
  108. (message #about)
  109. (welcome) 
  110.  
  111. ;********************************************************************
  112. ; Checks for MUI & OS versions
  113. ;********************************************************************
  114. (set ver 0)
  115. (if (<> (getassign "mui") "")
  116. (
  117.   (if (exists "mui:mui") 
  118.    (
  119.     (set vernum (getversion "mui:mui") )
  120.     (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  121.  
  122.     (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  123.     (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  124.     (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  125.     (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  126.     (if (= ver 15) (set muiver "3.4") )  (if (= ver 16) (set muiver "3.5") )
  127.    )
  128.   )
  129. )
  130. )
  131.  
  132. (if (< ver 14)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  133. (if (< osver 39) ( (message (cat #need-os workbench)) (set cpuPick 0) ))
  134.  
  135. ;********************************************************************
  136. ; Ask where to put Voyager & Make dir if needed
  137. ;********************************************************************
  138. (set Package (getassign "AmiTCP"))
  139. (if (= Package "") (set Package (getassign "Inet")) )
  140.  
  141. (set Voyagerdir  (askdir (prompt #whereVoyager)
  142.                 (help   #whereVoyager)
  143.                      (default Package)
  144.                )  
  145. )
  146.  
  147. (set where Voyagerdir)
  148.  
  149. ;********************************************************************
  150. ; Check to see if Voyager is already there, if so ask to backup
  151. ;********************************************************************
  152. (if (= 1 (exists (tackon where "V") ) ) 
  153.   (
  154.     (set vernum1 (getversion (tackon where "V") ))
  155.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  156.     (set Voyager_old (cat ver1 "." rev1))
  157.  
  158.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  159.                   (cat "V" Voyager_old) #filethere4 (tackon Voyagerdir "V") )
  160.     )
  161.     
  162.  
  163.     (copyfiles (source (tackon where "V"))
  164.                (dest where) 
  165.                (infos)
  166.                (newname (cat "V." Voyager_old))
  167.     )
  168.     
  169.     (delete (tackon Voyagerdir "V") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  170.  
  171.     (if (< (exists (tackon Voyagerdir "V")) 2) (makedir (tackon Voyagerdir "V") (infos)) )    
  172.  
  173.     (copyfiles (source (tackon where (cat "V." Voyager_old) ))
  174.                        (dest (tackon Voyagerdir "V")) 
  175.                        (infos)
  176.                
  177.     )
  178.  
  179.     (delete (tackon where (cat "V" Voyager_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  180.  
  181.     ;(set firsttime 1)
  182.  
  183.   )
  184. )
  185.  
  186. (if (< (exists (tackon Voyagerdir "Voyager")) 2) (makedir (tackon Voyagerdir "Voyager") (infos)) )
  187. (set where (tackon Voyagerdir "Voyager"))
  188. (set @default-dest where)
  189.  
  190. ;********************************************************************
  191. ; Check for old & backup
  192. ;********************************************************************
  193. (if (exists (tackon where "V")) 
  194.   (
  195.       (set vernum1 (getversion (tackon where "V") ))
  196.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  197.       (set Voyager_old (cat ver1 "." rev1))
  198.  
  199.       (set keeper  (askchoice (choices  (cat #backuptoXXX Voyager_old "'")  #copyover)
  200.                      (prompt #Voyagerfound)
  201.                  (help   #Voyagerfound)
  202.                      (default 0)
  203.                )
  204.       )    
  205.  
  206.  
  207.       (if (= keeper 0)
  208.          (copyfiles (source (tackon where "V"))
  209.                      (dest where) 
  210.                      (infos)
  211.                      (newname (cat "V" Voyager_old))
  212.          )
  213.       )          
  214.  
  215.       (set firsttime 1)
  216.     
  217.   )
  218. )
  219.  
  220. ;********************************************************************
  221. ; Copy over correct Voyager and Icon if wanted
  222. ;********************************************************************
  223. (if (AND (> #cpu 1) (exists ("V020")) )
  224.  (copyfiles (source "V020") (dest where) (newname "V") (optional "nofail") )
  225.  (copyfiles (source "V") (dest where) (optional "nofail") )
  226. )
  227.  
  228. (if (AND (> #cpu 1) (= (exists ("V020")) 0) )
  229.  (message #no020found)
  230. )
  231.  
  232.  
  233. (if (= firsttime 0)  (copyfiles (source "V.info") (dest where) (optional "nofail") ) )
  234.  
  235. (if (OR (= keeper 0) (= (exists (tackon where "V.info")) 0))
  236.   (
  237.   
  238.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  239.                            (prompt #newicon)
  240.                        (help   #newicon)
  241.                            (default 0)
  242.             )
  243.    )
  244.   
  245.    (if (= newicon 0) 
  246.      (copyfiles (source "V.info") (dest where)  (optional "nofail") )
  247.    )
  248.  
  249.   )
  250.  
  251. )
  252.  
  253. ;********************************************************************
  254. ; Copy over Other stuff & config stuff *IF* not there!
  255. ;********************************************************************
  256. (copyfiles (source "CacheBrowser") (dest where) (infos) (optional "nofail") ) 
  257.  
  258. (if (= (exists (tackon where "Bookmarks.ASC")) 0)
  259.  (if (> (exists "Bookmarks.ASC") 0)
  260.   (copyfiles (source "Bookmarks.ASC") (dest where) (infos) (optional "nofail") ) 
  261.  )
  262. )
  263.  
  264. (if (= (exists (tackon where "Voyager.prefs")) 0)
  265.  (if (> (exists "Voyager.prefs") 0)
  266.   (copyfiles (source "Voyager.prefs") (dest where) (infos) (optional "nofail") ) 
  267.  )
  268. )
  269.  
  270. (makedir (tackon where "Cache") (infos))
  271.  
  272. ;********************************************************************
  273. ; Copy over DOCS (home.html and Vpics dir) & Other Docs
  274. ;********************************************************************
  275. (set docs (askoptions (choices " Docs In HTML format" " V.readme") ;" V.history"
  276.               (prompt #whatdocs) 
  277.                       (help #whatdocs)
  278.                   (default 3)
  279.       )
  280. )
  281.  
  282. (if (<> docs 0)
  283.  (
  284.    (set docsdir (askdir (prompt (cat #wheredocs " (V.readme)" )) ; & V.history
  285.                 (help   (cat #wheredocs " (V.readme)" )) ; & V.history
  286.                      (default where)
  287.                 )  
  288.    )
  289.  
  290.    (if (IN docs 0)
  291.     (
  292.       (if (< (exists (tackon where "Voyager_home")) 2) (makedir (tackon where "Voyager_home") (infos)) )    
  293.       (if (< (exists (tackon where "Voyager_home/VPics")) 2) (makedir (tackon where "Voyager_home/VPics") (infos)) )    
  294.  
  295.       (foreach "Voyager_home/VPics" "#?"
  296.          (copyfiles (source (tackon "Voyager_home/VPics" @each-name)) (dest (tackon where "Voyager_home/VPics")) (optional "nofail") ) 
  297.       )
  298.  
  299.       (copyfiles (source "Voyager_home/home.html") (dest (tackon where "Voyager_home")) (infos) (optional "nofail") )
  300.     )
  301.    )
  302.  
  303.  
  304.    (if (IN docs 1) (copyfiles (source "V.readme") (dest docsdir) (infos) (optional "nofail") ) )
  305.    (if (IN docs 2) (copyfiles (source "V.history") (dest docsdir) (infos) (optional "nofail") ) )
  306.    
  307.  )
  308. )
  309.  
  310. ;********************************************************************
  311. ; Copy over TOOLS if wanted
  312. ;********************************************************************
  313. (if (> (exists "Tools") 0)
  314.  (
  315.   (set #whattools "\nWhat Tools would you like to install? They will be placed in: ")
  316.  
  317.   (set tools (askoptions (choices " ClearCacheDir" " Uninstall")
  318.                    (prompt (cat #whattools (tackon where "Tools\n"))) 
  319.                          (help   (cat #whattools (tackon where "Tools\n")))
  320.                      (default 1)
  321.              )
  322.   )
  323.  
  324.   (if (<> tools 0)
  325.    (
  326.      (if (< (exists (tackon where "Tools")) 2) (makedir (tackon where "Tools") (infos)) )    
  327.      (set toolsdir (tackon where "Tools"))   
  328.  
  329.      (if (IN tools 0) (copyfiles (source "Tools/ClearCacheDir") (dest toolsdir) (infos) (optional "nofail") ) )
  330.      (if (IN tools 1) (copyfiles (source "Tools/Uninstall") (dest toolsdir) (infos) (optional "nofail") ) )
  331.    
  332.    )
  333.   )
  334.  
  335.  )
  336. )
  337. ;******************************************************************************** 
  338. ; Copy over rexx stuff
  339. ;********************************************************************************
  340. (if (< (exists (tackon where "rexx")) 2) (makedir (tackon where "rexx") (infos)) )    
  341.  
  342. (if (> (exists "rexx") 0)
  343.   (foreach "rexx" "#?"
  344.      (copyfiles (source (tackon "rexx" @each-name)) (dest (tackon where "rexx")) (optional "nofail") ) 
  345.   )
  346. )
  347.  
  348. ;********************************************************************
  349. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  350. ;********************************************************************
  351. (if (<> (getassign "mui") "")
  352. (
  353.   (if (> (exists "mui:libs/mui") 0)
  354.    (
  355.       (foreach "mui" "#?.mpc"
  356.          (copyfiles (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  357.       )
  358.     
  359.       (foreach "mui" "#?.mcc"
  360.          (copyfiles (source (tackon "mui" @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  361.       )
  362.  
  363.    )
  364.  
  365.    (message (cat #newermui muiver #nompc)) 
  366.  
  367.   )
  368.  
  369. )
  370. )
  371.  
  372. ;********************************************************************
  373. ; setting-changing env settings 
  374. ;********************************************************************
  375. (set envset (askoptions (choices #telnet #mailto #wwwproxy)
  376.                 (prompt #whatenv)
  377.                         (help #whatenv)
  378.                     (default 3)
  379.             )
  380. )
  381.  
  382.  
  383. (if (<> envset 0)
  384.  (
  385.    (if (= (exists "ENV:Voyager") 0) (makedir "ENV:Voyager") )    
  386.    (if (= (exists "ENVARC:Voyager") 0) (makedir "ENVARC:Voyager") )    
  387.  
  388.    (if (IN envset 0) 
  389.      (
  390.  
  391.        (set Package (getassign "AmiTCP"))
  392.        (if (= Package "")
  393.           (set TELNET_APP  TELNET_APP-I)
  394.           (set TELNET_APP  TELNET_APP-A)
  395.        )
  396.  
  397.        (if (> (exists ("env:Voyager/TELNET_APP")) 0) (set TELNET_APP (getenv "Voyager/TELNET_APP")) )
  398.        (set TELNET_APP (askstring (prompt #telnetset)
  399.                                   (help   #telnetset)
  400.                                   (default TELNET_APP)
  401.                    )
  402.        )
  403.        
  404.        (delete "ENV:Voyager/TELNET_APP")
  405.        (textfile (dest "ENV:Voyager/TELNET_APP") (append TELNET_APP) )
  406.        (delete "ENVARC:Voyager/TELNET_APP")
  407.        (textfile (dest "ENVARC:Voyager/TELNET_APP") (append TELNET_APP) )
  408.      
  409.      )
  410.    )
  411.  
  412.  
  413.    (if (IN envset 1) 
  414.      (
  415.  
  416.        (set mailop (askchoice (choices "Thor" "Yam" "smtppost" "Other"
  417.                                (prompt #mailopt)
  418.                            (help #mailopt)
  419.                          (default 0)
  420.                            )
  421.                    )
  422.        )
  423.  
  424.  
  425.        (if (= mailop 0)
  426.          (
  427.            (delete "ENV:Voyager/MAILTO_APP")
  428.            (textfile (dest "ENV:Voyager/MAILTO_APP") (append (cat "rx \"" (tackon (tackon where "rexx") "MailTo-THOR.VRX") "\" %h")) )
  429.            (delete "ENVARC:Voyager/MAILTO_APP")
  430.            (textfile (dest "ENVARC:Voyager/MAILTO_APP") (append (cat "rx \"" (tackon (tackon where "rexx") "MailTo-THOR.VRX") "\" %h")) )
  431.          )
  432.        )
  433.  
  434.        (if (= mailop 1)
  435.          (
  436.            (delete "ENV:Voyager/MAILTO_APP")
  437.            (textfile (dest "ENV:Voyager/MAILTO_APP") (append (cat "rx \"" (tackon (tackon where "rexx") "MailTo-YAM.VRX") "\" %h")) )
  438.            (delete "ENVARC:Voyager/MAILTO_APP")
  439.            (textfile (dest "ENVARC:Voyager/MAILTO_APP") (append (cat "rx \"" (tackon (tackon where "rexx") "MailTo-YAM.VRX") "\" %h")) )
  440.          )
  441.        )
  442.  
  443.        (if (= mailop 2)
  444.          (
  445.            (delete "ENV:Voyager/MAILTO_APP")
  446.            (textfile (dest "ENV:Voyager/MAILTO_APP") (append (cat "rx \"" (tackon (tackon where "rexx") "mailsmtppost") "\" %h")) )
  447.            (delete "ENVARC:Voyager/MAILTO_APP")
  448.            (textfile (dest "ENVARC:Voyager/MAILTO_APP") (append (cat "rx \"" (tackon (tackon where "rexx") "mailsmtppost") "\" %h")) )
  449.          )
  450.        )
  451.  
  452.  
  453.        (if (= mailop 3)
  454.          (
  455.            (if (> (exists ("env:Voyager/MAILTO_APP")) 0) (set MAILTO_APP (getenv "Voyager/MAILTO_APP")) )
  456.            (set MAILTO_APP (askstring (prompt #mailset)
  457.                                       (help   #mailset)
  458.                                       (default MAILTO_APP)
  459.                        )
  460.            )
  461.        
  462.            (delete "ENV:Voyager/MAILTO_APP")
  463.            (textfile (dest "ENV:Voyager/MAILTO_APP") (append MAILTO_APP) )
  464.            (delete "ENVARC:Voyager/MAILTO_APP")
  465.            (textfile (dest "ENVARC:Voyager/MAILTO_APP") (append MAILTO_APP) )
  466.          )
  467.        )
  468.  
  469.  
  470.      )
  471.    )
  472.  
  473.  
  474.    (if (IN envset 2) 
  475.      (
  476.        (if (> (exists ("env:Voyager/WWWPROXY")) 0) (set WWWPROXY (getenv "Voyager/WWWPROXY")) )  
  477.        (set WWWPROXY  (askstring (prompt #wwwpset)
  478.                                  (help   #wwwpset)
  479.                                  (default WWWPROXY)
  480.                   )
  481.        )
  482.  
  483.        (delete "ENV:Voyager/WWWPROXY")
  484.        (textfile (dest "ENV:Voyager/WWWPROXY") (append WWWPROXY) )
  485.        (delete "ENVARC:Voyager/WWWPROXY")
  486.        (textfile (dest "ENVARC:Voyager/WWWPROXY") (append WWWPROXY) )
  487.  
  488.  
  489.        (if (> (exists ("env:Voyager/WWWPROXYPORT")) 0) (set WWWPROXYPORT (getenv "Voyager/WWWPROXYPORT")) )  
  490.        (set WWWPROXYPORT (askstring (prompt #wwwppset)
  491.                                     (help   #wwwppset)
  492.                                     (default WWWPROXYPORT)
  493.                          )
  494.        )
  495.  
  496.        (delete "ENV:Voyager/WWWPROXYPORT")
  497.        (textfile (dest "ENV:Voyager/WWWPROXYPORT") (append WWWPROXYPORT) )
  498.        (delete "ENVARC:Voyager/WWWPROXYPORT")
  499.        (textfile (dest "ENVARC:Voyager/WWWPROXYPORT") (append WWWPROXYPORT) )  
  500.  
  501.      )
  502.    )
  503.  
  504.  
  505.  )
  506. )
  507.  
  508. ;********************************************************************
  509. ; Check on New installer 
  510. ;********************************************************************
  511. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  512. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  513.  
  514. ;(if (< InstallerVer 43.1)
  515. ; (message #updateinstaller)
  516. ;)
  517.  
  518. ;********************************************************************
  519. ; End Bye 
  520. ;********************************************************************
  521. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  522. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  523. (run (cat "run " #mpath "/multiview V.readme") )
  524.  
  525. (exit #byebye (quiet))
  526.